home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 243
- Top = 131
- BorderStyle = bsDialog
- Caption = 'Desktop Testbed'
- ClientHeight = 397
- ClientWidth = 762
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object DeskView: TListView
- Left = 8
- Top = 16
- Width = 361
- Height = 337
- Color = 8404992
- Columns = <
- item
- Caption = 'Desktop Item'
- Width = 150
- end
- item
- Caption = 'X Pos'
- Width = 70
- end
- item
- AutoSize = True
- Caption = 'Y Pos'
- end>
- Font.Charset = DEFAULT_CHARSET
- Font.Color = 8454143
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- RowSelect = True
- ParentFont = False
- TabOrder = 0
- ViewStyle = vsReport
- OnSelectItem = DeskViewSelectItem
- end
- object RefreshBtn: TButton
- Left = 8
- Top = 360
- Width = 75
- Height = 25
- Caption = 'Refresh'
- TabOrder = 1
- OnClick = RefreshBtnClick
- end
- object GroupBox1: TGroupBox
- Left = 384
- Top = 16
- Width = 361
- Height = 97
- Caption = ' Current Desktop Item '
- TabOrder = 2
- object Label1: TLabel
- Left = 8
- Top = 24
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object Label2: TLabel
- Left = 8
- Top = 64
- Width = 40
- Height = 13
- Caption = 'Position:'
- end
- object Bevel1: TBevel
- Left = 10
- Top = 50
- Width = 335
- Height = 2
- Shape = bsBottomLine
- end
- object Label3: TLabel
- Left = 72
- Top = 64
- Width = 10
- Height = 13
- Caption = 'X:'
- end
- object Label4: TLabel
- Left = 160
- Top = 64
- Width = 10
- Height = 13
- Caption = 'Y:'
- end
- object CurName: TEdit
- Left = 56
- Top = 20
- Width = 209
- Height = 21
- TabOrder = 0
- OnChange = CurNameChange
- end
- object ChangeCaption: TButton
- Left = 272
- Top = 20
- Width = 75
- Height = 21
- Caption = 'Change!'
- TabOrder = 1
- OnClick = ChangeCaptionClick
- end
- object XPos: TSpinEdit
- Left = 88
- Top = 60
- Width = 57
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 2
- Value = 0
- end
- object YPos: TSpinEdit
- Left = 176
- Top = 60
- Width = 57
- Height = 22
- MaxValue = 0
- MinValue = 0
- TabOrder = 3
- Value = 0
- end
- object ChangePos: TButton
- Left = 272
- Top = 60
- Width = 75
- Height = 21
- Caption = 'Change!'
- TabOrder = 4
- OnClick = ChangePosClick
- end
- end
- object GroupBox2: TGroupBox
- Left = 384
- Top = 128
- Width = 361
- Height = 97
- Caption = ' Global Settings '
- TabOrder = 3
- object Label5: TLabel
- Left = 8
- Top = 24
- Width = 51
- Height = 13
- Caption = 'Text Color:'
- end
- object Label6: TLabel
- Left = 136
- Top = 24
- Width = 112
- Height = 13
- Caption = 'Text Background Color:'
- end
- object TextColor: TPanel
- Left = 64
- Top = 22
- Width = 50
- Height = 20
- BorderStyle = bsSingle
- TabOrder = 0
- OnClick = TextColorClick
- end
- object TextBackground: TPanel
- Left = 254
- Top = 22
- Width = 99
- Height = 20
- BorderStyle = bsSingle
- TabOrder = 1
- OnClick = TextBackgroundClick
- end
- object MakeTransparent: TButton
- Left = 8
- Top = 56
- Width = 345
- Height = 25
- Caption = 'Make Text background transparent'
- TabOrder = 2
- OnClick = MakeTransparentClick
- end
- end
- object dm: TDesktopManager
- Left = 88
- Top = 360
- end
- object ColorDialog: TColorDialog
- Ctl3D = True
- Left = 120
- Top = 360
- end
- end
-